﻿
Partial Class Login
    Inherits BasePage

    Protected Sub Login1_LoggedIn(ByVal sender As Object, ByVal e As System.EventArgs) Handles Login1.LoggedIn
        Dim s As String = Page.User.Identity.Name
        Response.Redirect("~/")
    End Sub

    Protected Sub Login1_LoggingIn(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.LoginCancelEventArgs) Handles Login1.LoggingIn
        Dim s As String = Page.User.Identity.Name
        If Not Membership.ValidateUser(Login1.UserName, Login1.Password) Then
            Dim ss As String = "error"
        End If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Request.QueryString.Count > 0 Then
            If Request.QueryString(0).ToLower.Contains("logout") Then FormsAuthentication.SignOut()
            Response.Redirect("~/")
        End If
        If Not SiteSettings.AllowManualRegistration Then
            Login1.CreateUserText = ""
        End If
    End Sub
End Class
